home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
003
/
db2ios.arc
/
SHIP.INV
< prev
next >
Wrap
Text File
|
1983-01-04
|
1KB
|
47 lines
* ship.inv 08/21/83
* inventory shipping report
GOTO TOP
STORE 0 TO pageno
STORE 0 TO col2
STORE 0 TO col4
STORE 0 TO col5
STORE T to MORE
SET MARGIN TO 5
DO WHILE more
STORE pageno + 1 TO pageno
STORE 7 TO lineno
ERASE
EJECT
? ' '
? '========================= SIG/M DISK ORDERS ========================'
? ' '
? ' ' + date() + ' PAGE: ' + str(pageno,3)
? ' '
? 'VOLUME INVENTORY ADJUSTED NEW NEW ORDERS NEW ORDERS'
? 'NUMBER FOR OLD ORDERS ORDERS SHIPPED BACKORDERED'
? ' '
DO WHILE lineno <55
IF .NOT. EOF
STORE open:inv+ship-back:ord-wait:ship+recvd TO col2
STORE ship + COL4 TO COL4
STORE backship + COL5 TO COL5
? ' '+ STR(disk,3,0) + ' ' + str(col2,3,0);
+ ' ' + STR(ship + backship,3,0) + ' ';
+ STR(ship,3,0) + ' ' + STR(backship,3,0)
ELSE
STORE f TO more
ENDIF not .EOF.
STORE lineno + 1 to lineno
skip
ENDDO while lineno > 55
ENDDO more
? ' ----------------------------------------------------------------------------'
? ' '
? " TOTAL NUMBER OF VOLUMES ORDERED WAS " + STR(COL4 + COL5,3,0)
? " TOTAL NUMBER OF VOLUMES SHIPPED WAS " + STR(COL4,3,0)
? " TOTAL NUMBER OF VOLUMES BACKORDERED WAS " + STR(COL5,3,0)
EJECT
SET PRINT OFF
RELEASE ALL
STORE t TO more